home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 3 / PC World Interactive 3.iso / _mels_ / melsoft / fisgir.tx_ / fisgir.tx
Text File  |  1997-05-19  |  57KB  |  1,388 lines
  1. unit Fisgir;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, Buttons,fistanm,
  8.   Mask, DBCtrls, ExtCtrls,sorusor,genel1,arama,fissil,hksec,hptanm,yayar,printers;
  9.  
  10. type
  11.   Tfrmmuhfis = class(TForm)
  12.     Query1: TQuery;
  13.     DataSource1: TDataSource;
  14.     DBGrid1: TDBGrid;
  15.     Query1Aklama: TStringField;
  16.     Query1Tarih: TDateField;
  17.     Query1Bor: TFloatField;
  18.     Query1Alacak: TFloatField;
  19.     Query1FiTr: TStringField;
  20.     Query1FiNo: TFloatField;
  21.     BitBtn1: TBitBtn;
  22.     Memo1: TMemo;
  23.     Memo2: TMemo;
  24.     Table1: TTable;
  25.     Query2: TQuery;
  26.     BitBtn2: TBitBtn;
  27.     Query1YevmiyeMaddeNo: TFloatField;
  28.     Query3: TQuery;
  29.     Memo4: TMemo;
  30.     Memo3: TMemo;
  31.     Table2: TTable;
  32.     Table3: TTable;
  33.     Query1AnaHesap: TStringField;
  34.     Query1TaliHesap: TStringField;
  35.     Query1AltHesap: TStringField;
  36.     Table4: TTable;
  37.     alacak1: TLabel;
  38.     borc1: TLabel;
  39.     Query1Kaytlaralendi: TBooleanField;
  40.     Query4: TQuery;
  41.     Query1AnaGrup: TStringField;
  42.     Query1YanGrup: TStringField;
  43.     Query1HesapKodu: TStringField;
  44.     Query1SraNo: TFloatField;
  45.     anafistablosu: TTable;
  46.     Label1: TLabel;
  47.     Label2: TLabel;
  48.     DataSource2: TDataSource;
  49.     DBEdit1: TDBEdit;
  50.     DBEdit2: TDBEdit;
  51.     Label3: TLabel;
  52.     DBEdit3: TDBEdit;
  53.     DBNavigator1: TDBNavigator;
  54.     BitBtn4: TBitBtn;
  55.     ymakssorgusu: TQuery;
  56.     tarihfisno: TQuery;
  57.     Label4: TLabel;
  58.     DBEdit4: TDBEdit;
  59.     Query4SUMofBor: TFloatField;
  60.     Query4SUMofAlacak: TFloatField;
  61.     Query3YevmiyeMaddeNo: TFloatField;
  62.     Kaydet: TBitBtn;
  63.     BitBtn3: TBitBtn;
  64.     BitBtn5: TBitBtn;
  65.     indeks: TLabel;
  66.     BitBtn6: TBitBtn;
  67.     tariharaanasil: TQuery;
  68.     tariharayansil: TQuery;
  69.     ymnaraanasil: TQuery;
  70.     ymnarayansil: TQuery;
  71.     hesaptablosu: TTable;
  72.     hesaptablosuHesapKodu: TStringField;
  73.     BitBtn7: TBitBtn;
  74.     Query2SraNo: TFloatField;
  75.     anafistablosuYevmiyeMaddeNumaras: TFloatField;
  76.     anafistablosuFiNo: TFloatField;
  77.     anafistablosuzelNumara: TFloatField;
  78.     anafistablosuTarih: TDateField;
  79.     anafistablosuOnayland: TBooleanField;
  80.     BitBtn8: TBitBtn;
  81.     lbl001: TLabel;
  82.     procedure FormActivate(Sender: TObject);
  83.     procedure Query1BeforePost(DataSet: TDataset);
  84.     procedure Query1FiTrSetText(Sender: TField; const Text: String);
  85.     procedure BitBtn1Click(Sender: TObject);
  86.     procedure BitBtn2Click(Sender: TObject);
  87.     procedure BitBtn3Click(Sender: TObject);
  88.     procedure Query1HesapKoduSetText(Sender: TField; const Text: String);
  89.     procedure Query1AfterDelete(DataSet: TDataset);
  90.     procedure Query1AklamaSetText(Sender: TField; const Text: String);
  91.     procedure FormCreate(Sender: TObject);
  92.     procedure Query1BeforeEdit(DataSet: TDataset);
  93.     procedure Query1BeforeDelete(DataSet: TDataset);
  94.     procedure DBGrid1Exit(Sender: TObject);
  95.     procedure Query1BorSetText(Sender: TField; const Text: String);
  96.     procedure Query1AlacakSetText(Sender: TField; const Text: String);
  97.     procedure KaydetClick(Sender: TObject);
  98.     procedure BitBtn4Click(Sender: TObject);
  99.     procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  100.     procedure BitBtn5Click(Sender: TObject);
  101.     procedure BitBtn6Click(Sender: TObject);
  102.     procedure DBGrid1DblClick(Sender: TObject);
  103.     procedure BitBtn7Click(Sender: TObject);
  104.     procedure BitBtn8Click(Sender: TObject);
  105.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  106.   private
  107.     { Private declarations }
  108.   public
  109.     { Public declarations }
  110. function  yazidantamsayiya(yazi:string):longint;
  111. function  yazidanreelsayiya(yazi:string):double;
  112. procedure sorgusirala;
  113.   end;
  114.  
  115.  
  116. var
  117.   frmmuhfis: Tfrmmuhfis;
  118. implementation
  119.     uses otomas;
  120. {$R *.DFM}
  121.  
  122.  
  123.  
  124. procedure Tfrmmuhfis.sorgusirala;
  125. var
  126. i:integer;
  127. begin
  128. cursor:=crhourglass;
  129. query1.first;
  130. i:=1;
  131. query1.disablecontrols;
  132. query1.fieldbyname('S²ra No').readonly:=false;
  133. while not query1.eof do begin
  134. query1.edit;
  135. query1.fieldbyname('S²ra No').asinteger:=i;
  136. query1.post;
  137. query1.next;
  138. i:=i+1;
  139. end;
  140. query1.fieldbyname('S²ra No').readonly:=true;
  141. query1.first;
  142. query1.enablecontrols;
  143. dbgrid1.refresh;
  144. cursor:=crdefault;
  145. end;
  146.  
  147.  
  148. procedure Tfrmmuhfis.FormActivate(Sender: TObject);
  149. var
  150. sa,i:integer;
  151. begin
  152. lbl001.caption:='jkhajkdfhjhdf';
  153. cursor:=crhourglass;
  154.  
  155. table1.active:=false;
  156. table1.active:=true;
  157. memo1.lines.clear;
  158. memo2.lines.clear;
  159. table1.first;
  160. while not table1.eof do begin
  161. memo1.lines.add(table1.fieldbyname('K²saltma').asstring);
  162. memo2.lines.add(table1.fieldbyname('Fi■ Tⁿrⁿ').asstring);
  163. table1.next;
  164. end;
  165. table1.active:=false;
  166.  
  167. table2.active:=false;
  168. table2.active:=true;
  169. memo3.lines.clear;
  170. memo4.lines.clear;
  171. table2.first;
  172. while not table2.eof do begin
  173. memo3.lines.add(table2.fieldbyname('K²saltma').asstring);
  174. memo4.lines.add(table2.fieldbyname('Fi■ Tⁿrⁿ').asstring);
  175. table2.next;
  176. end;
  177. table2.active:=false;
  178.  
  179. anafistablosu.last;
  180.  
  181.  
  182. if indeks.tag=1 then
  183. begin
  184. indeks.tag:=0;
  185. anafistablosu.setkey;
  186. anafistablosu.fields[0].asstring:=indeks.caption;
  187. anafistablosu.gotokey;
  188. end;
  189.  
  190. query1.close;
  191. query1.params[0].asinteger:=anafistablosu.fields[0].asinteger;
  192. query1.open;
  193.  
  194. if (anafistablosu.fieldbyname('Onayland²').asboolean=true) then
  195.                                                            begin
  196.                                                            kaydet.enabled:=false;
  197.                                                            dbgrid1.enabled:=false;
  198.                                                            end
  199.                                                            else
  200.                                                            begin
  201.                                                            kaydet.enabled:=true;
  202.                                                            dbgrid1.enabled:=true;
  203.                                                            end;
  204.  
  205.  
  206.  
  207. cursor:=crdefault;
  208.  
  209. if (anafistablosu.recordcount>0) then dbgrid1.enabled:=true else dbgrid1.enabled:=false;
  210.  
  211. end;
  212.  
  213. procedure Tfrmmuhfis.Query1BeforePost(DataSet: TDataset);
  214. label css00;
  215. var
  216. h,a2,a3,i:integer;
  217. ahadi,ag,yg,ayrac,hs,yh,ah,gdizi,anagadi,ygadi,hesadi,yhesadi,hk,tip:string;
  218. eborc,ealacak,borc,alacak:double;
  219. ki:boolean;
  220. begin
  221. if {(DBGrid1.SelectedField.FieldName <> 'Hesap Kodu')and }
  222.                                         query1.fieldbyname('Hesap Kodu').isnull then
  223.                                         begin
  224.                                         raise exception.create('"Hesap Kodu" alan²n² bo■ b²rakamazs²n²z.');
  225.                                         end;
  226.  
  227. if anafistablosu.fieldbyname('Yevmiye Madde Numaras²').isnull then begin
  228. dataset.cancel;
  229. goto css00;
  230. end;
  231. eborc:=yazidanreelsayiya(borc1.caption);
  232. ealacak:=yazidanreelsayiya(alacak1.caption);
  233. ki:=false;
  234. if query1.fieldbyname('Kay²tlara ▌■lendi').asboolean=true then ki:=true;
  235. query1.fieldbyname('Yevmiye Madde No').asinteger:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger;
  236. table3.active:=true;
  237. a2:=0;
  238. a3:=0;
  239. if not ((table3.fieldbyname('Alan2').asinteger=0) or (table3.fieldbyname('Alan2').isnull)) then
  240. a2:=table3.fieldbyname('Alan2').asinteger;
  241. if not (table3.fieldbyname('Alan3').isnull) then
  242. a3:=table3.fieldbyname('Alan3').asinteger;
  243.  
  244. ayrac:='.';
  245. if not (table3.fieldbyname('Ayraτ').isnull) then
  246. ayrac:=table3.fieldbyname('Ayraτ').asstring;
  247.  
  248. hs:='';
  249. yh:='';
  250. ah:='';
  251. hk:=query1.fieldbyname('Hesap Kodu').asstring;
  252.  
  253.  
  254. hs:=frmanamenu.anahesap(hk);
  255. if a2>0 then yh:=frmanamenu.yanhesap(hk);
  256. if a3>0 then ah:=frmanamenu.althesap(hk);
  257.  
  258. h:=yazidantamsayiya(hs);
  259.  
  260. if (h>0) and (h<10) then tip:='AG';
  261. if (h>9) and (h<100) then tip:='YG';
  262. if (h>99) and (h<1000) then tip:='H';
  263. if (tip='H') and (yh>'0') then tip:='YH';
  264. if (tip='YH') and (ah>'0') then tip:='AH';
  265.  
  266. ag:=hk[1];
  267. yg:=hk[1]+hk[2];
  268. query1.fieldbyname('Ana Grup').asstring:=hs[1];
  269. query1.fieldbyname('Yan Grup').asstring:=hs[1]+hs[2];
  270. query1.fieldbyname('Ana Hesap').asstring:=hs;
  271. if a2 > 0 then query1.fieldbyname('Tali Hesap').asstring:=yh;
  272. if a3 > 0 then query1.fieldbyname('Alt Hesap').asstring:=ah;
  273.  
  274.  
  275. anagadi:=hk[1]+'  ';
  276. if a2>0 then anagadi:=anagadi+ayrac;
  277. if (a2>0 ) then for i:=1 to a2 do anagadi:=anagadi+' ';
  278. if a3 > 0 then anagadi:=anagadi+ayrac;
  279.  
  280. ygadi:=hk[1]+hk[2]+' ';
  281. if a2>0 then ygadi:=ygadi+ayrac;
  282. if a2 > 0 then for i:=1 to a2 do ygadi:=ygadi+' ';
  283. if a3 > 0 then ygadi:=ygadi+ayrac;
  284.  
  285. hesadi:=hk[1]+hk[2]+hk[3];
  286. if a2>0 then hesadi:=hesadi+ayrac;
  287. if (a2 > 0) then for i:=1 to a2 do hesadi:=hesadi+' ';
  288. if a3 > 0 then hesadi:=hesadi+ayrac;
  289.  
  290. yhesadi:='';
  291. for i:=1 to (4+a2) do yhesadi:=yhesadi+hk[i];
  292. if a3 > 0 then yhesadi:=yhesadi+ayrac;
  293.  
  294. ahadi:=hk;
  295.  
  296.    if tip='AH' then begin
  297.    table4.open;
  298.  
  299.    table4.first;
  300.    table4.setkey;
  301.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  302.                              if table4.gotokey then begin
  303.                              borc:=table4.fieldbyname('Borτ').asfloat;
  304.                              if ki then borc:=borc-eborc;
  305.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  306.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  307.                              if ki then alacak:=alacak-ealacak;
  308.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  309.                              table4.edit;
  310.                              table4.fieldbyname('Borτ').asfloat:=borc;
  311.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  312.                              table4.post;
  313.                              end;
  314.  
  315.    table4.first;
  316.    table4.setkey;
  317.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  318.                              if table4.gotokey then begin
  319.                              borc:=table4.fieldbyname('Borτ').asfloat;
  320.                              if ki then borc:=borc-eborc;
  321.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  322.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  323.                              if ki then alacak:=alacak-ealacak;
  324.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  325.                              table4.edit;
  326.                              table4.fieldbyname('Borτ').asfloat:=borc;
  327.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  328.                              table4.post;
  329.                              end;
  330.  
  331.    table4.first;
  332.    table4.setkey;
  333.    table4.fieldbyname('Hesap Kodu').asstring:=hesadi;
  334.                              if table4.gotokey then begin
  335.                              borc:=table4.fieldbyname('Borτ').asfloat;
  336.                              if ki then borc:=borc-eborc;
  337.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  338.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  339.                              if ki then alacak:=alacak-ealacak;
  340.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  341.                              table4.edit;
  342.                              table4.fieldbyname('Borτ').asfloat:=borc;
  343.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  344.                              table4.post;
  345.                              end;
  346.  
  347.    table4.first;
  348.    table4.setkey;
  349.    table4.fieldbyname('Hesap Kodu').asstring:=yhesadi;
  350.                              if table4.gotokey then begin
  351.                              borc:=table4.fieldbyname('Borτ').asfloat;
  352.                              if ki then borc:=borc-eborc;
  353.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  354.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  355.                              if ki then alacak:=alacak-ealacak;
  356.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  357.                              table4.edit;
  358.                              table4.fieldbyname('Borτ').asfloat:=borc;
  359.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  360.                              table4.post;
  361.                              end;
  362.  
  363.    table4.first;
  364.    table4.setkey;
  365.    table4.fieldbyname('Hesap Kodu').asstring:=ahadi;
  366.                              if table4.gotokey then begin
  367.                              borc:=table4.fieldbyname('Borτ').asfloat;
  368.                              if ki then borc:=borc-eborc;
  369.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  370.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  371.                              if ki then alacak:=alacak-ealacak;
  372.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  373.                              table4.edit;
  374.                              table4.fieldbyname('Borτ').asfloat:=borc;
  375.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  376.                              table4.post;
  377.                              end;
  378.  
  379.  
  380.    table4.close;
  381.    end;
  382.  
  383.  
  384.  
  385.  
  386.    if tip='YH' then begin
  387.    table4.open;
  388.  
  389.    table4.first;
  390.    table4.setkey;
  391.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  392.                              if table4.gotokey then begin
  393.                              borc:=table4.fieldbyname('Borτ').asfloat;
  394.                              if ki then borc:=borc-eborc;
  395.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  396.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  397.                              if ki then alacak:=alacak-ealacak;
  398.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  399.                              table4.edit;
  400.                              table4.fieldbyname('Borτ').asfloat:=borc;
  401.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  402.                              table4.post;
  403.                              end;
  404.  
  405.    table4.first;
  406.    table4.setkey;
  407.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  408.                              if table4.gotokey then begin
  409.                              borc:=table4.fieldbyname('Borτ').asfloat;
  410.                              if ki then borc:=borc-eborc;
  411.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  412.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  413.                              if ki then alacak:=alacak-ealacak;
  414.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  415.                              table4.edit;
  416.                              table4.fieldbyname('Borτ').asfloat:=borc;
  417.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  418.                              table4.post;
  419.                              end;
  420.  
  421.    table4.first;
  422.    table4.setkey;
  423.    table4.fieldbyname('Hesap Kodu').asstring:=hesadi;
  424.                              if table4.gotokey then begin
  425.                              borc:=table4.fieldbyname('Borτ').asfloat;
  426.                              if ki then borc:=borc-eborc;
  427.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  428.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  429.                              if ki then alacak:=alacak-ealacak;
  430.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  431.                              table4.edit;
  432.                              table4.fieldbyname('Borτ').asfloat:=borc;
  433.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  434.                              table4.post;
  435.                              end;
  436.  
  437.    table4.first;
  438.    table4.setkey;
  439.    table4.fieldbyname('Hesap Kodu').asstring:=yhesadi;
  440.                              if table4.gotokey then begin
  441.                              borc:=table4.fieldbyname('Borτ').asfloat;
  442.                              if ki then borc:=borc-eborc;
  443.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  444.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  445.                              if ki then alacak:=alacak-ealacak;
  446.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  447.                              table4.edit;
  448.                              table4.fieldbyname('Borτ').asfloat:=borc;
  449.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  450.                              table4.post;
  451.                              end;
  452.    table4.close;
  453.    end;
  454.  
  455.  
  456.  
  457.    if tip='H' then begin
  458.    table4.open;
  459.  
  460.    table4.first;
  461.    table4.setkey;
  462.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  463.                              if table4.gotokey then begin
  464.                              borc:=table4.fieldbyname('Borτ').asfloat;
  465.                              if ki then borc:=borc-eborc;
  466.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  467.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  468.                              if ki then alacak:=alacak-ealacak;
  469.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  470.                              table4.edit;
  471.                              table4.fieldbyname('Borτ').asfloat:=borc;
  472.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  473.                              table4.post;
  474.                              end;
  475.  
  476.    table4.first;
  477.    table4.setkey;
  478.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  479.                              if table4.gotokey then begin
  480.                              borc:=table4.fieldbyname('Borτ').asfloat;
  481.                              if ki then borc:=borc-eborc;
  482.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  483.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  484.                              if ki then alacak:=alacak-ealacak;
  485.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  486.                              table4.edit;
  487.                              table4.fieldbyname('Borτ').asfloat:=borc;
  488.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  489.                              table4.post;
  490.                              end;
  491.  
  492.    table4.first;
  493.    table4.setkey;
  494.    table4.fieldbyname('Hesap Kodu').asstring:=hesadi;
  495.                              if table4.gotokey then begin
  496.                              borc:=table4.fieldbyname('Borτ').asfloat;
  497.                              if ki then borc:=borc-eborc;
  498.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  499.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  500.                              if ki then alacak:=alacak-ealacak;
  501.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  502.                              table4.edit;
  503.                              table4.fieldbyname('Borτ').asfloat:=borc;
  504.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  505.                              table4.post;
  506.                              end;
  507.  
  508.  
  509.    table4.close;
  510.    end;
  511.  
  512.  
  513.    if tip='YG' then begin
  514.    table4.open;
  515.  
  516.    table4.first;
  517.    table4.setkey;
  518.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  519.                              if table4.gotokey then begin
  520.                              borc:=table4.fieldbyname('Borτ').asfloat;
  521.                              if ki then borc:=borc-eborc;
  522.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  523.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  524.                              if ki then alacak:=alacak-ealacak;
  525.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  526.                              table4.edit;
  527.                              table4.fieldbyname('Borτ').asfloat:=borc;
  528.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  529.                              table4.post;
  530.                              end;
  531.  
  532.    table4.first;
  533.    table4.setkey;
  534.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  535.                              if table4.gotokey then begin
  536.                              borc:=table4.fieldbyname('Borτ').asfloat;
  537.                              if ki then borc:=borc-eborc;
  538.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  539.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  540.                              if ki then alacak:=alacak-ealacak;
  541.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  542.                              table4.edit;
  543.                              table4.fieldbyname('Borτ').asfloat:=borc;
  544.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  545.                              table4.post;
  546.                              end;
  547.  
  548.  
  549.    table4.close;
  550.    end;
  551.  
  552.  
  553.  
  554.  
  555.    if tip='AG' then begin
  556.    table4.open;
  557.  
  558.    table4.first;
  559.    table4.setkey;
  560.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  561.                              if table4.gotokey then begin
  562.                              borc:=table4.fieldbyname('Borτ').asfloat;
  563.                              if ki then borc:=borc-eborc;
  564.                              borc:=borc+query1.fieldbyname('Borτ').asfloat;
  565.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  566.                              if ki then alacak:=alacak-ealacak;
  567.                              alacak:=alacak+query1.fieldbyname('Alacak').asfloat;
  568.                              table4.edit;
  569.                              table4.fieldbyname('Borτ').asfloat:=borc;
  570.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  571.                              table4.post;
  572.                              end;
  573.  
  574.  
  575.    table4.close;
  576.    end;
  577.  
  578.  
  579. query1.fieldbyname('Kay²tlara ▌■lendi').asboolean:=true;
  580. css00:
  581. end;
  582.  
  583.  
  584. function  Tfrmmuhfis.yazidantamsayiya(yazi:string):longint;
  585. var
  586. sayi:longint;
  587. geciciyazi:string;
  588. i:integer;
  589. begin
  590. sayi:=0;
  591. geciciyazi:='0';
  592. for i:=1 to length(yazi) do begin
  593. if pos(copy(yazi,i,1),'0123456789')>0 then geciciyazi:=geciciyazi+copy(yazi,i,1);
  594. end;
  595. sayi:=strtoint(geciciyazi);
  596. yazidantamsayiya:=sayi;
  597. end;
  598.  
  599. procedure Tfrmmuhfis.Query1FiTrSetText(Sender: TField; const Text: String);
  600. var
  601. s:string;
  602. i:integer;
  603. begin
  604. s:=text;
  605. sender.asstring:=s;
  606. for i:=0 to memo1.lines.count-1 do begin
  607. if s=memo1.lines[i] then sender.asstring:=memo2.lines[i];
  608. end;
  609.  
  610. end;
  611.  
  612.  
  613. function  Tfrmmuhfis.yazidanreelsayiya(yazi:string):double;
  614. var
  615. sayi:double;
  616. geciciyazi:string;
  617. i:integer;
  618. begin
  619. sayi:=0;
  620. geciciyazi:='0';
  621. for i:=1 to length(yazi) do begin
  622. if pos(copy(yazi,i,1),'0123456789')>0 then geciciyazi:=geciciyazi+copy(yazi,i,1);
  623. end;
  624. sayi:=strtofloat(geciciyazi);
  625. yazidanreelsayiya:=sayi;
  626. end;
  627.  
  628.  
  629. procedure Tfrmmuhfis.BitBtn1Click(Sender: TObject);
  630. begin
  631. application.createform(tfrmfistanimlari,frmfistanimlari);
  632. frmfistanimlari.show;
  633. end;
  634.  
  635. procedure Tfrmmuhfis.BitBtn2Click(Sender: TObject);
  636. begin
  637. sorgusirala;
  638. end;
  639.  
  640. procedure Tfrmmuhfis.BitBtn3Click(Sender: TObject);
  641. label ck0011;
  642. var
  643. sa:integer;
  644. begin
  645. sa:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger;
  646. query4.close;
  647. query4.params[0].asinteger:=sa;
  648. query4.open;
  649. if (abs(query4.fields[0].asfloat-query4.fields[1].asfloat)>=0.5 )then
  650. begin
  651. showmessage('"'+anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asstring+
  652. '" yevmiye nolu fi■in bakiyesi s²f²r de≡il...');
  653. activecontrol:=DBGrid1;
  654. goto ck0011;
  655. end;
  656.  
  657. KaydetClick(Self);
  658. lbl001.caption:='Kapat';
  659. RELEASE;
  660. ck0011:
  661. end;
  662.  
  663. procedure Tfrmmuhfis.Query1HesapKoduSetText(Sender: TField;const Text: String);
  664. label ck0000000000;
  665. var
  666. a:integer;
  667. pc:array[0..200] of char;
  668. ge,s:string;
  669. begin
  670. s:=text;
  671.  
  672. hesaptablosu.close;
  673. hesaptablosu.open;
  674. hesaptablosu.first;
  675. hesaptablosu.setkey;
  676. hesaptablosuhesapkodu.asstring:=s;
  677. if hesaptablosu.gotokey then
  678. begin
  679. sender.asstring:=s;
  680. end
  681.  else
  682.  begin
  683. ge:=s+' hesap koduna sahip bir hesap tan²mlanmam²■.'+#10#13+' Yeni bir hesap olu■turmak istiyor musunuz ?';
  684. strpcopy(pc,ge);
  685. a:=application.messagebox(pc,'! ! ! D i k k a t ! ! !',mb_yesno+mb_iconquestion);
  686. if (a<>idyes) then goto ck0000000000;
  687.  
  688. APPlication.createform(tfrmhesapplanitanimlamalari,frmhesapplanitanimlamalari);
  689. frmhesapplanitanimlamalari.show;
  690. frmhesapplanitanimlamalari.table1.append;
  691. frmhesapplanitanimlamalari.table1.fieldbyname('Hesap Kodu').asstring:=s;
  692. frmhesapplanitanimlamalari.table1.fieldbyname('Borτ').asfloat:=0;
  693. frmhesapplanitanimlamalari.table1.fieldbyname('Alacak').asfloat:=0;
  694. hesaptablosu.close;
  695.  
  696. end;
  697.  
  698.  
  699. ck0000000000:
  700.   end;
  701.  
  702. procedure Tfrmmuhfis.Query1AfterDelete(DataSet: TDataset);
  703. begin
  704. sorgusirala;
  705. end;
  706.  
  707.  
  708. procedure Tfrmmuhfis.Query1AklamaSetText(Sender: TField;
  709.   const Text: String);
  710. var
  711. s:string;
  712. i:integer;
  713. begin
  714. s:=text;
  715. sender.asstring:=s;
  716. for i:=0 to memo3.lines.count-1 do begin
  717. if s=memo3.lines[i] then sender.asstring:=memo4.lines[i];
  718. end;
  719.  
  720. end;
  721.  
  722.  
  723.  
  724.  
  725. procedure Tfrmmuhfis.FormCreate(Sender: TObject);
  726. label 1223;
  727. var
  728. i,a2,a3:integer;
  729. ayrac:string;
  730. begin
  731. ayrac:='.';
  732. table3.active:=true;
  733. if not (table3.fieldbyname('Ayraτ').isnull) then ayrac:=table3.fieldbyname('Ayraτ').asstring;
  734.  
  735. a2:=0;
  736. a3:=0;
  737. if not ((table3.fieldbyname('Alan2').asinteger=0) or (table3.fieldbyname('Alan2').isnull)) then
  738. a2:=table3.fieldbyname('Alan2').asinteger;
  739. if not (table3.fieldbyname('Alan3').isnull) then
  740. a3:=table3.fieldbyname('Alan3').asinteger;
  741.  
  742.  
  743. 1223:
  744. hesaptablosuHesapKodu.editmask:=genel.hesapformati;
  745. query1HesapKodu.editmask:=genel.hesapformati;
  746. table3.close;
  747. anafistablosu.open;
  748. end;
  749.  
  750. procedure Tfrmmuhfis.Query1BeforeDelete(DataSet: TDataset);
  751. var
  752. h,a2,a3,i:integer;
  753. ahadi,ag,yg,ayrac,hs,yh,ah,gdizi,anagadi,ygadi,hesadi,yhesadi,hk,tip:string;
  754. eborc,ealacak,borc,alacak:double;
  755. ki:boolean;
  756. begin
  757. if not query1.fieldbyname('Kay²tlara ▌■lendi').asboolean=true then exit;
  758. table3.active:=true;
  759. a2:=0;
  760. a3:=0;
  761. if not ((table3.fieldbyname('Alan2').asinteger=0) or (table3.fieldbyname('Alan2').isnull)) then
  762. a2:=table3.fieldbyname('Alan2').asinteger;
  763. if not (table3.fieldbyname('Alan3').isnull) then
  764. a3:=table3.fieldbyname('Alan3').asinteger;
  765.  
  766. ayrac:='.';
  767. if not (table3.fieldbyname('Ayraτ').isnull) then
  768. ayrac:=table3.fieldbyname('Ayraτ').asstring;
  769. table3.active:=false;
  770.  
  771. hs:='';
  772. yh:='';
  773. ah:='';
  774. hk:=query1.fieldbyname('Hesap Kodu').asstring;
  775.  
  776. hs:=frmanamenu.anahesap(hk);
  777. if a2>0 then yh:=frmanamenu.yanhesap(hk);
  778. if a3>0 then ah:=frmanamenu.althesap(hk);
  779.  
  780. h:=yazidantamsayiya(hs);
  781.  
  782. if (h>0) and (h<10) then tip:='AG';
  783. if (h>9) and (h<100) then tip:='YG';
  784. if (h>99) and (h<1000) then tip:='H';
  785. if (tip='H') and (yh>'0') then tip:='YH';
  786. if (tip='YH') and (ah>'0') then tip:='AH';
  787.  
  788. ag:=hk[1];
  789. yg:=hk[1]+hk[2];
  790.  
  791. anagadi:=hk[1]+'  ';
  792. if a2>0 then anagadi:=anagadi+ayrac;
  793. if (a2 > 0) then for i:=1 to a2 do anagadi:=anagadi+' ';
  794. if a3 > 0 then anagadi:=anagadi+ayrac;
  795.  
  796. ygadi:=hk[1]+hk[2]+' ';
  797. if a2>0 then ygadi:=ygadi+ayrac;
  798. if a2 > 0 then for i:=1 to a2 do ygadi:=ygadi+' ';
  799. if a3 > 0 then ygadi:=ygadi+ayrac;
  800.  
  801. hesadi:=hk[1]+hk[2]+hk[3];
  802. if a2>0 then hesadi:=hesadi+ayrac;
  803. if (a2 > 0) then for i:=1 to a2 do hesadi:=hesadi+' ';
  804. if a3 > 0 then hesadi:=hesadi+ayrac;
  805.  
  806. yhesadi:='';
  807. if a2>0 then for i:=1 to (4+a2) do yhesadi:=yhesadi+hk[i];
  808. if a3>0 then yhesadi:=yhesadi+ayrac;
  809.  
  810. if a3>0 then ahadi:=hk;
  811.  
  812.    if tip='AH' then begin
  813.    table4.open;
  814.  
  815.    table4.first;
  816.    table4.setkey;
  817.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  818.                              if table4.gotokey then begin
  819.                              borc:=table4.fieldbyname('Borτ').asfloat;
  820.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  821.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  822.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  823.                              table4.edit;
  824.                              table4.fieldbyname('Borτ').asfloat:=borc;
  825.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  826.                              table4.post;
  827.                              end;
  828.  
  829.    table4.first;
  830.    table4.setkey;
  831.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  832.                              if table4.gotokey then begin
  833.                              borc:=table4.fieldbyname('Borτ').asfloat;
  834.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  835.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  836.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  837.                              table4.edit;
  838.                              table4.fieldbyname('Borτ').asfloat:=borc;
  839.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  840.                              table4.post;
  841.                              end;
  842.  
  843.    table4.first;
  844.    table4.setkey;
  845.    table4.fieldbyname('Hesap Kodu').asstring:=hesadi;
  846.                              if table4.gotokey then begin
  847.                              borc:=table4.fieldbyname('Borτ').asfloat;
  848.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  849.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  850.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  851.                              table4.edit;
  852.                              table4.fieldbyname('Borτ').asfloat:=borc;
  853.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  854.                              table4.post;
  855.                              end;
  856.  
  857.    table4.first;
  858.    table4.setkey;
  859.    table4.fieldbyname('Hesap Kodu').asstring:=yhesadi;
  860.                              if table4.gotokey then begin
  861.                              borc:=table4.fieldbyname('Borτ').asfloat;
  862.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  863.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  864.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  865.                              table4.edit;
  866.                              table4.fieldbyname('Borτ').asfloat:=borc;
  867.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  868.                              table4.post;
  869.                              end;
  870.  
  871.    table4.first;
  872.    table4.setkey;
  873.    table4.fieldbyname('Hesap Kodu').asstring:=ahadi;
  874.                              if table4.gotokey then begin
  875.                              borc:=table4.fieldbyname('Borτ').asfloat;
  876.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  877.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  878.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  879.                              table4.edit;
  880.                              table4.fieldbyname('Borτ').asfloat:=borc;
  881.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  882.                              table4.post;
  883.                              end;
  884.  
  885.  
  886.    table4.close;
  887.    end;
  888.  
  889.  
  890.  
  891.  
  892.    if tip='YH' then begin
  893.    table4.open;
  894.  
  895.    table4.first;
  896.    table4.setkey;
  897.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  898.                              if table4.gotokey then begin
  899.                              borc:=table4.fieldbyname('Borτ').asfloat;
  900.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  901.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  902.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  903.                              table4.edit;
  904.                              table4.fieldbyname('Borτ').asfloat:=borc;
  905.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  906.                              table4.post;
  907.                              end;
  908.  
  909.    table4.first;
  910.    table4.setkey;
  911.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  912.                              if table4.gotokey then begin
  913.                              borc:=table4.fieldbyname('Borτ').asfloat;
  914.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  915.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  916.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  917.                              table4.edit;
  918.                              table4.fieldbyname('Borτ').asfloat:=borc;
  919.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  920.                              table4.post;
  921.                              end;
  922.  
  923.    table4.first;
  924.    table4.setkey;
  925.    table4.fieldbyname('Hesap Kodu').asstring:=hesadi;
  926.                              if table4.gotokey then begin
  927.                              borc:=table4.fieldbyname('Borτ').asfloat;
  928.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  929.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  930.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  931.                              table4.edit;
  932.                              table4.fieldbyname('Borτ').asfloat:=borc;
  933.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  934.                              table4.post;
  935.                              end;
  936.  
  937.    table4.first;
  938.    table4.setkey;
  939.    table4.fieldbyname('Hesap Kodu').asstring:=yhesadi;
  940.                              if table4.gotokey then begin
  941.                              borc:=table4.fieldbyname('Borτ').asfloat;
  942.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  943.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  944.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  945.                              table4.edit;
  946.                              table4.fieldbyname('Borτ').asfloat:=borc;
  947.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  948.                              table4.post;
  949.                              end;
  950.  
  951.    table4.close;
  952.    end;
  953.  
  954.  
  955.  
  956.    if tip='H' then begin
  957.    table4.open;
  958.  
  959.    table4.first;
  960.    table4.setkey;
  961.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  962.                              if table4.gotokey then begin
  963.                              borc:=table4.fieldbyname('Borτ').asfloat;
  964.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  965.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  966.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  967.                              table4.edit;
  968.                              table4.fieldbyname('Borτ').asfloat:=borc;
  969.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  970.                              table4.post;
  971.                              end;
  972.  
  973.    table4.first;
  974.    table4.setkey;
  975.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  976.                              if table4.gotokey then begin
  977.                              borc:=table4.fieldbyname('Borτ').asfloat;
  978.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  979.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  980.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  981.                              table4.edit;
  982.                              table4.fieldbyname('Borτ').asfloat:=borc;
  983.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  984.                              table4.post;
  985.                              end;
  986.  
  987.    table4.first;
  988.    table4.setkey;
  989.    table4.fieldbyname('Hesap Kodu').asstring:=hesadi;
  990.                              if table4.gotokey then begin
  991.                              borc:=table4.fieldbyname('Borτ').asfloat;
  992.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  993.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  994.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  995.                              table4.edit;
  996.                              table4.fieldbyname('Borτ').asfloat:=borc;
  997.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  998.                              table4.post;
  999.                              end;
  1000.  
  1001.  
  1002.    table4.close;
  1003.    end;
  1004.  
  1005.  
  1006.    if tip='YG' then begin
  1007.    table4.open;
  1008.  
  1009.    table4.first;
  1010.    table4.setkey;
  1011.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  1012.                              if table4.gotokey then begin
  1013.                              borc:=table4.fieldbyname('Borτ').asfloat;
  1014.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  1015.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  1016.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  1017.                              table4.edit;
  1018.                              table4.fieldbyname('Borτ').asfloat:=borc;
  1019.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  1020.                              table4.post;
  1021.                              end;
  1022.  
  1023.    table4.first;
  1024.    table4.setkey;
  1025.    table4.fieldbyname('Hesap Kodu').asstring:=ygadi;
  1026.                              if table4.gotokey then begin
  1027.                              borc:=table4.fieldbyname('Borτ').asfloat;
  1028.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  1029.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  1030.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  1031.                              table4.edit;
  1032.                              table4.fieldbyname('Borτ').asfloat:=borc;
  1033.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  1034.                              table4.post;
  1035.                              end;
  1036.  
  1037.  
  1038.    table4.close;
  1039.    end;
  1040.  
  1041.  
  1042.  
  1043.  
  1044.    if tip='AG' then begin
  1045.    table4.open;
  1046.  
  1047.    table4.first;
  1048.    table4.setkey;
  1049.    table4.fieldbyname('Hesap Kodu').asstring:=anagadi;
  1050.                              if table4.gotokey then begin
  1051.                              borc:=table4.fieldbyname('Borτ').asfloat;
  1052.                              borc:=borc-query1.fieldbyname('Borτ').asfloat;
  1053.                              alacak:=table4.fieldbyname('Alacak').asfloat;
  1054.                              alacak:=alacak-query1.fieldbyname('Alacak').asfloat;
  1055.                              table4.edit;
  1056.                              table4.fieldbyname('Borτ').asfloat:=borc;
  1057.                              table4.fieldbyname('Alacak').asfloat:=alacak;
  1058.                              table4.post;
  1059.                              end;
  1060.  
  1061.  
  1062.    table4.close;
  1063.    end;
  1064.  
  1065.  
  1066. end;
  1067.  
  1068. procedure Tfrmmuhfis.DBGrid1Exit(Sender: TObject);
  1069. var
  1070. sa:integer;
  1071. begin
  1072. sa:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger;
  1073. query4.close;
  1074. query4.params[0].asinteger:=sa;
  1075. query4.open;
  1076. if (abs(query4.fields[0].asfloat-query4.fields[1].asfloat)>=0.5 )then begin
  1077. showmessage('"'+anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asstring+
  1078. '" yevmiye nolu fi■in bakiyesi s²f²r de≡il...');
  1079. activecontrol:=DBGrid1;
  1080. end;
  1081.  
  1082. end;
  1083.  
  1084. procedure Tfrmmuhfis.Query1BorSetText(Sender: TField; const Text: String);
  1085. begin
  1086. sender.asstring:=text;
  1087. if ((query1.fieldbyname('Alacak').asfloat<>0) and (query1.fieldbyname('Borτ').asfloat<>0)) then
  1088. query1.fieldbyname('Alacak').asfloat:=0;
  1089. end;
  1090.  
  1091. procedure Tfrmmuhfis.Query1AlacakSetText(Sender: TField;
  1092.   const Text: String);
  1093. begin
  1094. sender.asstring:=text;
  1095. if ((query1.fieldbyname('Alacak').asfloat<>0) and (query1.fieldbyname('Borτ').asfloat<>0)) then
  1096. query1.fieldbyname('Borτ').asfloat:=0;
  1097. end;
  1098.  
  1099. procedure Tfrmmuhfis.KaydetClick(Sender: TObject);
  1100. label cik0001;
  1101. var
  1102. i:integer;
  1103. begin
  1104. if ((query1.state=dsedit) or (query1.state=dsinsert) ) then query1.post;
  1105. sorgusirala;
  1106. if ((anafistablosu.state=dsedit) or(anafistablosu.state=dsinsert)) then anafistablosu.post;
  1107. query4.close;
  1108. query4.params[0].asinteger:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger;
  1109. query4.open;
  1110. if (abs(query4.fields[0].asfloat-query4.fields[1].asfloat)>=0.5 )then begin
  1111. showmessage('"'+anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asstring+
  1112. '" yevmiye nolu fi■in bakiyesi s²f²r de≡il...');
  1113. activecontrol:=DBGrid1;
  1114. goto cik0001;
  1115. end;
  1116. cursor:=crhourglass;
  1117. query1.first;
  1118. i:=1;
  1119. query1.disablecontrols;
  1120. query1.fieldbyname('S²ra No').readonly:=false;
  1121. while not query1.eof do begin
  1122. query1.edit;
  1123. query1.fieldbyname('S²ra No').asinteger:=i;
  1124. query1.fieldbyname('Fi■ No').asinteger:=anafistablosu.fieldbyname('Fi■ No').asinteger;
  1125. query1.fieldbyname('Yevmiye Madde No').asinteger:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger;
  1126. query1.fieldbyname('Tarih').asdatetime:=anafistablosu.fieldbyname('Tarih').asdatetime;
  1127. query1.post;
  1128. query1.next;
  1129. i:=i+1;
  1130. end;
  1131. query1.fieldbyname('S²ra No').readonly:=true;
  1132. query1.first;
  1133. query1.enablecontrols;
  1134. dbgrid1.refresh;
  1135. cursor:=crdefault;
  1136.  
  1137. cik0001:
  1138. end;
  1139.  
  1140. procedure Tfrmmuhfis.BitBtn4Click(Sender: TObject);
  1141. label cikartik,don0,don1;
  1142. var
  1143. tar:string;
  1144. fn,yn,fnm,ynm:integer;
  1145. c:string;
  1146. begin
  1147.  
  1148.             tar:=frmsorusor.cevap('Tarihi Giriniz... ',datetostr(date));
  1149.             if ((tar='*****') or (tar='')) then goto cikartik;
  1150.             ymakssorgusu.close;
  1151.             ymakssorgusu.open;
  1152.             ymakssorgusu.last;
  1153.             ynm:=ymakssorgusu.fields[0].asinteger+1;
  1154.             ymakssorgusu.close;
  1155.             don0:
  1156.             c:=frmsorusor.cevap('Yevmiye Numaras²n² Giriniz... ',inttostr(ynm));
  1157.             if ((c='*****') or (c='')) then goto cikartik;
  1158.  
  1159.             yn:=genel.yazidantamsayiya(c);
  1160.             if yn < ynm then begin
  1161.                              showmessage('Yevmiye numaras² en az '+inttostr(ynm)+' olmak zorunda...');
  1162.                              goto don0;
  1163.                              end;
  1164.  
  1165.             tarihfisno.close;
  1166.             tarihfisno.PARAMS[0].asdatetime:=strtodatetime(tar);
  1167.             tarihfisno.open;
  1168.             tarihfisno.last;
  1169.             fnm:=tarihfisno.fields[0].asinteger+1;
  1170.             tarihfisno.close;
  1171.            don1:
  1172.             fn:=genel.yazidantamsayiya(frmsorusor.cevap('Fi■ Numaras²n² Giriniz... ',inttostr(fnm)));
  1173.             if fn < fnm then begin
  1174.                              showmessage('Fi■ numaras² en az '+inttostr(fnm)+' olmak zorunda...');
  1175.                              goto don1;
  1176.                              end;
  1177.  
  1178.            anafistablosu.append;
  1179.            anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger:=yn;
  1180.            anafistablosu.fieldbyname('Fi■ No').asinteger:=fn;
  1181.            anafistablosu.fieldbyname('Tarih').asdatetime:=strtodatetime(tar);
  1182.            anafistablosu.post;
  1183.  
  1184. if (anafistablosu.recordcount>0) then dbgrid1.enabled:=true else dbgrid1.enabled:=false;
  1185.            query1.close;
  1186.            query1.params[0].asinteger:=yn;
  1187.            query1.open;
  1188.  
  1189. if (anafistablosu.fieldbyname('Onayland²').asboolean=true) then 
  1190.                                                            begin
  1191.                                                            kaydet.enabled:=false;
  1192.                                                            dbgrid1.enabled:=false;
  1193.                                                            end
  1194.                                                            else
  1195.                                                            begin
  1196.                                                            kaydet.enabled:=true;
  1197.                                                            dbgrid1.enabled:=true;
  1198.                                                            end;
  1199.  
  1200.  activecontrol:=dbgrid1;
  1201.            cikartik:
  1202. end;
  1203.  
  1204. procedure Tfrmmuhfis.DBNavigator1Click(Sender: TObject;
  1205.   Button: TNavigateBtn);
  1206. begin
  1207. query1.close;
  1208. query1.params[0].asinteger:=anafistablosu.fields[0].asinteger;
  1209. query1.open;
  1210.  
  1211. if (anafistablosu.fieldbyname('Onayland²').asboolean=true) then
  1212.                                                            begin
  1213.                                                            kaydet.enabled:=false;
  1214.                                                            dbgrid1.enabled:=false;
  1215.                                                            end
  1216.                                                            else
  1217.                                                            begin
  1218.                                                            kaydet.enabled:=true;
  1219.                                                            dbgrid1.enabled:=true;
  1220.                                                            end;
  1221.  
  1222. end;
  1223.  
  1224. procedure Tfrmmuhfis.BitBtn5Click(Sender: TObject);
  1225. begin
  1226. frmarama.donusformu.caption:='33';
  1227. frmarama.Tabloadi.caption:='fisler.db';
  1228.  
  1229. frmarama.alan01.caption:='Yevmiye Madde Numaras²';
  1230. frmarama.alan02.caption:='Tarih';
  1231. frmarama.alan03.caption:='Fi■ No';
  1232. frmarama.alan04.caption:='╓zel Numara';
  1233.  
  1234. frmarama.Listelenenalan01.tag:=4;
  1235. frmarama.Listelenenalan01.caption:='Yevmiye Madde Numaras²';
  1236. frmarama.Listelenenalan02.caption:='Tarih';
  1237. frmarama.Listelenenalan03.caption:='Fi■ No';
  1238. frmarama.Listelenenalan04.caption:='╓zel Numara';
  1239.  
  1240. frmarama.Checkbox01.caption:='Yevmiye Madde Numaras²';
  1241. frmarama.Checkbox02.caption:='Tarih';
  1242. frmarama.Checkbox03.caption:='Fi■ No';
  1243. frmarama.Checkbox04.caption:='╓zel Numara';
  1244.  
  1245. frmarama.aciklama01.caption:='Aral²k';
  1246. frmarama.aciklama02.caption:='Aral²k';
  1247. frmarama.aciklama03.caption:='Aral²k';
  1248. frmarama.aciklama04.caption:='Aral²k';
  1249.  
  1250. frmarama.Tip01.caption:='Say²';
  1251. frmarama.Tip02.caption:='Tarih';
  1252. frmarama.Tip03.caption:='Say²';
  1253. frmarama.Tip04.caption:='Say²';
  1254.  
  1255.  
  1256. frmarama.Checkbox01.visible:=true;
  1257. frmarama.Checkbox02.visible:=true;
  1258. frmarama.Checkbox03.visible:=true;
  1259. frmarama.Checkbox04.visible:=true;
  1260.  
  1261. frmarama.show;
  1262.  
  1263. end;
  1264.  
  1265.  
  1266. procedure Tfrmmuhfis.BitBtn6Click(Sender: TObject);
  1267. label soooooon;
  1268. var
  1269. pc:array[0..200] of char;
  1270. a:integer;
  1271. ge,silmeturu,tarihbas,tarihson,yevmiyebas,yevmiyeson,yevmiyeno:string;
  1272. begin
  1273. showmessage('Bu i■lemi yaparsan²z belirledi≡iniz fi■(ler) S▌L▌NECEKT▌R !!!'+#10#13+'Bu i■lemi yaparken dikkatli olmal²s²n²z.'+
  1274. #10#13+'Bir fi■ silindi≡inde tekrar geri GELEMEZ !');
  1275. application.createform(tfrmfissil,frmfissil);
  1276. frmfissil.edit1.text:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asstring;
  1277. frmfissil.showmodal;
  1278.  
  1279. if (frmfissil.modalresult<>mrok) then goto soooooon;
  1280.  
  1281. case frmfissil.radiogroup1.itemindex of
  1282. 0:silmeturu:='YN';
  1283. 1:silmeturu:='TA';
  1284. 2:silmeturu:='YNA';
  1285. end;
  1286.  
  1287. yevmiyeno:=frmfissil.edit1.text;
  1288. tarihbas:=frmfissil.edit2.text;
  1289. tarihson:=frmfissil.edit3.text;
  1290. yevmiyebas:=frmfissil.edit4.text;
  1291. yevmiyeson:=frmfissil.edit5.text;
  1292.  
  1293. if tarihbas>tarihson then begin
  1294.                           ge:=tarihson ;
  1295.                           tarihson :=tarihbas;
  1296.                           tarihbas:=ge;
  1297.                           end;
  1298.  
  1299. if yevmiyebas>yevmiyeson then begin
  1300.                           ge:=yevmiyeson;
  1301.                           yevmiyeson:=yevmiyebas;
  1302.                           yevmiyebas:=ge;
  1303.                           end;
  1304.  
  1305. if (silmeturu='YN') then
  1306. begin
  1307. ge:=yevmiyeno+' yevmiye numaral² fi■i silmek istedi≡inizden emin misiniz ?';
  1308. strpcopy(pc,ge);
  1309. a:=application.messagebox(pc,'! ! ! D i k k a t ! ! !',mb_yesno+mb_iconquestion);
  1310. if (a<>idyes) then goto soooooon;
  1311.  
  1312. ymnarayansil.parambyname('ymn1').asinteger:=strtoint(yevmiyeno);
  1313. ymnarayansil.parambyname('ymn2').asinteger:=strtoint(yevmiyeno);
  1314. ymnarayansil.execsql;
  1315.  
  1316. ymnaraanasil.parambyname('ymn1').asinteger:=strtoint(yevmiyeno);
  1317. ymnaraanasil.parambyname('ymn2').asinteger:=strtoint(yevmiyeno);
  1318. ymnaraanasil.execsql;
  1319.  
  1320. anafistablosu.refresh;
  1321. query1.close;
  1322. query1.params[0].asinteger:=anafistablosu.fieldbyname('Yevmiye Madde Numaras²').asinteger;
  1323. query1.open;
  1324. if (anafistablosu.fieldbyname('Onayland²').asboolean=true) then
  1325.                                                            begin
  1326.                                                            kaydet.enabled:=false;
  1327.                                                            dbgrid1.enabled:=false;
  1328.                                                            end
  1329.                                                            else
  1330.                                                            begin
  1331.                                                            kaydet.enabled:=true;
  1332.                                                            dbgrid1.enabled:=true;
  1333.                                                            end;
  1334.  
  1335.  
  1336. end;
  1337.  
  1338.  
  1339. if (silmeturu='TA') then
  1340.                      begin
  1341.  
  1342. ge:=tarihbas +' - '+tarihson+' tarih aral²≡²ndaki fi■leri silmek istedi≡inizden emin misiniz ?';
  1343. strpcopy(pc,ge);
  1344. a:=application.messagebox(pc,'! ! ! D i k k a t ! ! !',mb_yesno+mb_iconquestion); :¡ú╘¡ó&    ü}P|¼¼ü}`t╕=LΦ/ 6     Φ▌■Xα_^├¡=}úZs¡únqWî╪Ä└ì>èq╣P≤ñO╞_δ╦┐╧╛'Lδ*ì╣P ╨Xï]ïP ╨Xâ╟├ 6     SQΦ╕■├ 6     SQΦô■├╣Q ╓YΓ·├╕Ç╗ÇWPSÜ■*  └uΦ>╩╟â╟├VWS┤0═![<rVļ3 ╣Ç3└≥««u√»ï≈┐π'ï╧¼¬<\t</uï╧
  1345. └u≡ü∙π't"ï∙╛    ╣ ≤ñ╕= █t┤<S╣π'QΦ┼²[▒■┴s╕    ╣PSQÜL~C └ú     _^├ìt╕ ╫ìt╕ ╫ìt╕ τPïD └t╕DPïD └t╕PÜ :├PìDPìPÜ2 :3└≈t@ëD3└≈Dt@ëDâ$≈âd≈├VWΦ
  1346. #â>qtq╗Φ u
  1347. ╕    PΦ#²ú     =  tT╕x+αïⁿP╟QB╟E`Wì}Üé :½í╘½á&    ÿ½░¬á<    ¬^┐*MVΦ@ ^Φ'XP 6     VPΦ$²╕GLΦZ■ 6     Φ²Xα╟qΦû"_^├ⁿíZsëD$ínqëD&╣Pì|(î╪Ä└Vì6èq≤ñ^├Uï∞â∞╟Fⁿ vⁿ FⁿÜτj2ëF■⌐Çuφ= u╕  δ! v■Φ¿∞Ç>à-t÷╧p u╧ïF N └u┼ïF■ïσ]╩Uï∞â∞ïF └t=sΘ¢=vΘô╟Pq╕  ΘèΦ5╣ëFⁿ └uΦ-╚â>Ntï^╞â~ └≈╪δfïFⁿ9F r+└δZïF
  1348. =u  v Üτj2ëF■â~■ tπ v■Φ∞ír9F■uïF úPq 6║-≈║-Çt╕δ+└P╕PΦ∩∞╕ÇP vÜ╘Kç-â─╕ïσ]╩ Uï∞â∞Φ[┴ vΦ┐δÜuÜ2 └u+└δJΦi▐÷╧pt8í║-ëF╕P╕┌PΦ{ ëF■=uΦx⌠ └u â>Nt╦Φg╟δ╞â~■t└ vΦpδÜ^2╕ïσ]┬Uï∞â∞J╞F╢ 6║-+└P≈║-Çt╕δ╕ PΦF∞╕ÇPìF╢PÜöKç-â─╕PΦö;╕ÇPìF╢PÜöKç-â─≈║-ÇtÇ>$qu╕δ.╕δ)÷╧pt╕δ÷╧pt╕δí║-9╕-u╕δ╕ëF■PΦ;;╕ÇPìF╢PÜöKç-â─≈║-Çt 6┬-+└P╕ PΦ░δ╕ÇPìF╢PÜöKç-â─╕PìF╢PÜ╨H :ïσ]├Uï∞â>Nt
  1349. â~t+└δ]ïF └t =t!=tIδ!╕P 6PqÜùI :╕P╕PÜ▐K :â>Nt â>N└≈╪δ╕PÜ4J :PÜτj2ú└rPΦΩΦ╕■δ┌╕]╩
  1350. Uï∞â∞ V╕  úrï≡╕ÇP╕)PΦΘ╚ └t+÷δ╕ÇP╕)PΦ%α └t+└úrï≡ ÷uG╟F÷Ç╕ÇPΦêëF⌠ìF⌠PÜ*X2ëF■ └t%PÜg]2ï≡ü╬ÇVΦªΘ÷a-t╛  â>r të6r╛  ë6└râ■ uU╕PÜ:G :ëF°â>NuLï╪ï╟G╕[║═GRP╕ÖP v°ΦfëF·PΦ/ └uπ v°Ü|G :â~·tâ>Nu 6└rΦ0Θ 6└rΦ)ΘΦ7╒^ïσ]├Uï∞â~t+└δ`≈└rÇt╕P╕╪PΦσ=t╕δCÜ▌j2í┬-úrâ~u&≈└rÇu     6└rΦ    ²δÜ╛C └t  6└rΦ┼ΦÜf2Φw█â>N└≈╪]┬Uï∞Vïvδ%Ç<-uèD8F|èD8F╕δâ╞δ¼8Ft≡Ç<u╓+└^]┬Uï∞â∞WVïv┐    ¼ÿPWΦ▒ 
  1351. └u+└δ ┐    Ç<uΘ╕^_ïσ]┬Uï∞â∞2VÜuÜ2 └uΘE╕PÜ:G :ëF╬â>NtΘ/ìF╘úê-╞Ç╕ÇP╕)PΦ∙╞ └u ╕ÇP╕)PΦ9▐╕ÇPìF╘PÜ╘Kç-â─ìF╘PΦáúå- v╬ìF╘P+└PÜeH :â>NtΘ╧╕║═GRP╕[P v╬Φ┬=uΘ╡ v╬ìF╘P╕)P+└PÜèH :ìF╘PΦPúå- └u╕P╕⌡PΦcδ╕ï6å-èB╙ÿPÜτd2ëF■ └t  å-ï6å-╞B╘Ç~tâ~■u ìF╘PΦ╙■
  1352. └u    ╕P╕äδ╣Φ∞│╕å-PèFÿPΦfτëF╥=  t,Φ3╙ v■Ü≈É2íZ-HHëF╨P v╥P 6r 6rÜQCPΦk┬Φ¡┘Φ─│ v╬Ü|G :^ïσ]┬U]╩Uï∞ïF └t =rU=v$δNÇ>'    t╕δ╕è2Çßï╤Ç·╔A╙°δ/Ç>'    t    ï^ èç8    δï^ èç(    *ΣPΦ√6╕ÇP vÜ╘Kç-â─╕]╩ Uï∞â∞WVâ~u(+ ï╟╤α╤αëF⌠ìEPïF⌠N*PïF⌠P*PÜ2 :Gâ r┌â~t    â~tΘé≈2t+└δ    ╕ÇPÜ4J :ï≡êF·â~ t    â~ tΘ▒╕PÜ4J :ëF°╕PÜ4J :ëF■Ç>'    t]ï╞╤α╤αëF⌠â~°r╕δ+└▒╙αëF≥÷F°t╕δ+└ F≥ï^⌠ëçN*â~■r╕δ+└▒╙αëF≥÷F■t╕δ+└ F≥ï^⌠δï╞╤α╤αëF≥ï╪ïF°ëçN*ï^≥ïF■ëçP*≈2t ╕PÜWë :Θ½ìDδ≥ï╞╤α╤αëF≥ï╪ïçN*ëF°ïçP*ëF■÷2tâf°âf■Ç>'    t_╕Pâ~°r╕δ+└╤αèN°ÇßëF≥Ç∙u╕δ+└ F≥PÜùI :╕Pâ~■r╕δ+└╤αèN■ÇßëF≥Ç∙u╕δ+└ F≥Pδ╕P v°ÜùI :╕P v■ÜùI :╕^_ïσ]╩
  1353. Uï∞â∞Vïv╕#P 6N* 6P*Ü :╕PΦ±4V+└PP╕ÇP╕P╕#PÜ╒ä :╕PΦ╘4V+└P╕P╕ÇP╕P╕#PÜ╒ä :╕^ïσ]╩ Uï∞â∞Vïv╕PΦá4╕#P 6N* 6P*Ü :V+└PP╕ÇP╕P╕#PÜ╒ä :╕^ïσ]╩ Uï∞â∞Vïv╕PΦ^4╕#P 6R* 6T*Ü :V+└PP╕ÇP╕P╕#PÜ╒ä :╕^ïσ]╩ Uï∞â∞Vïv╕PΦ4╕#P 6V* 6X*Ü :V+└PP╕ÇP╕P╕#PÜ╒ä :╕^ïσ]╩ Uï∞â∞V╟F·╕PÜ:G :ëF■â>NtΘJï╪ï╟Gï^■ï7+└ëD ëD
  1354. ╕
  1355. P╕ÇPÜé :PÜ6Lç-â─ v■╕ÇP+└PÜeH :â>NtΘ²ï^■ïí╘ëG≈2t╕δ╕ï^■ïëG╕║▌GRP╕{P v■Φ≡=tΘÖ╟q╟Fⁿïvⁿ▒╙µïFⁿP ┤N* ┤P*Ü : Fⁿâ~ⁿr▄Φï^■ïïGú╘Φ╬╟Φ╚ v■╕ÇP╕PP+└PÜèH :╕ÇPÜ2Lç-â─ëF·=  u N·Üé :;F·t╕  PΦ[Γδ ÷╧pÇt╟F·  Ü░f2=  uΩΦ⌠╘â~· u╕P╕PΦδâ~·cwâ~·t v·Ü é : v■Ü|G :^ïσ]├╕ßP╕ÇPÜK*  └uΦ╘╜δS 6π╕π'PÜ╘Kç-â─≈2t╕mδ╕oP╕π'P╕ÇPΦêα=t!╟q╕π'P 6πÜ╘Kç-â─╕π'PΦf@úß├Uï∞â∞╕PìF·PìFⁿPÜ2 :╕PìFⁿPìF■PÜ2 :╕P v· v■Ü :╕PìF·PìFⁿPÜ2 :╕PìFⁿPìF■PÜ2 :╕P v· v■Ü :ïσ]├£Yï┬SSP├ú┬Ü╝2X├ú┬├Uï∞ïFΦα ]╩Uï∞ïFΦµ ]╩Uï∞î╩ï^.í└]╪.ë└]]╩Uï∞ïF.ú└]]╩Uï∞â∞WVïv÷AtΘß■8Φ| └tΘ┴ïF -=vΘz└ô. ºí_≈╞t ≈╞tΦ:ΘÖ≈╞tΦVΘì≈╞uΘú≈2uΘé╟Fⁿâ>`stoÇ>8th╕8PΦ.ëF■ └t╟F
  1356. '╟Fⁿ v
  1357. Φ╨PΦëF■â~■uü~
  1358. 'rü~
  1359. 'wÇ>╓t╕lPΦ├â>`suΘâ~ⁿtΘ ╕P╕ PΦ╗Θ■╟F
  1360. 'δ⌐≈2t╟F
  1361. 'δÜ╟F
  1362. 'δô≈2tü>¿lu╟F
  1363. 'Θ{ ≈2tü>¿lt╟F
  1364. 'Θc ü>¿luΦ3╟PΦ$╟P+└PΦ
  1365.  └uΘöΦáΘÄ┐─ï^ïGï_▒╙δâπ╪èêEδ9â~
  1366. tïF
  1367. úHr 6HrΦτï°δ"n_û_û_è_├_├_├_├_├_├_├_├_├_├_├_Q^«^Ç>πt╕d(PΦ┤╕π'PΦ∙W╕╚PΦ! └u
  1368. ë>αqΦΦ#ΦbÇ>πt╕d(PΦ╒Φ╘#ü>N╙uΦ■8^_ïσ]╩Uï∞ïF └t =r'=vδ ╕  δïF @P╕>P v╕╩ï╨+└RPÜ▐F]╩ Uï∞â∞HWVíNëFⁿ╟N╕PÜ:G :ëF≥â>NtΦáΘ╞■2ÇAï6╣╟╣Ä≡)&á*Σï°╕╚PΦ÷+°â∩y+ δ â>╣t■prë6╣WΦ£íh-ëF°í┌qëF■╕╚P╕8PΦD╕ÇPìF╕PÜ╘Kç-â─ìF╕úh-╟┌q╕║⌡GRP╕3P v≥Φ█ïF°úh-ïF■ú┌q■2ÜG( :ëF·í¿9F·t v·Ü9ä :╞prï╟≈╪PΦ" v≥Ü|G :╕╚PÜT* ïFⁿúNÇ&A≈^_ïσ]├Uï∞Ä≡)èF&(&(#&(ïFÖ+┬╤°&]┬Uï∞ü∞≡≈2t╕δ≈2t╕δ╕PΦæ)╕ÇPìå PÜ╘Kç-â─╕PΦy)╕ÇPìå` PÜ╘Kç-â─╕PΦa)╕ÇPìF░PÜ╘Kç-â─ÇAìå Pìå` PìF░P╕ÇPΦ∞Ç&A≈ïσ]├Uï∞â∞ vÜ:G :ëFⁿ╟F■â>NtΘ▌ï╪ïí╥ëG
  1369. ï^ⁿïí╘ëG  vⁿ╕π'P+└PÜeH : vⁿâ~t╕d(δ╕╨P╕PÜeH :â>NtΘå v  v
  1370.  v vⁿΦWëF■=to╟╪ü>¿lt╟╓ï^ⁿïïG
  1371. ú╥ï^ⁿïïG ú╘ vⁿ╕π'P╕üP+└PÜèH :╕π'PΦ╗ └u╕P╕■PΦ╤ δöâ~t vⁿ╕d(P╕üP╕PÜèH : vⁿÜ|G :â~■u+└δïF■ïσ]┬
  1372. Uï∞â∞ΦC¡ïFúLq └t╟╘╟╥╟╪╕π'P╕üPΦx╢ëF°=╔AëN■ ╔u╕π'P╕üPΦ¼═ëF°â~uâ>┌uâ~°u ╕π'P╕┌PΦ┘â~uÇ>π'tâ~tâ~■t â~t!â~■u╕▄║∙GRP╕¢P╕P+└PΦO■ëF·δ╟F·â~·tΘÖ╕┌P╕π'PΦü>¿lu≈2t ╕π'PΦ╙ └tsΦ └ulâ>Nue╕PΦ" └u â>Nu╕δ+└ëFⁿü>¿lu$â>0t    ╕P+└Pδíbs9Xst ╕P 6bsΦ╦â>0tΦÿªδâ~ⁿt ╕P╕ PΦG Φa╕rqPÜL* ïσ]┬Uï∞írq╤Φ9Fr╕δ+└]┬Uï∞Vï^╤πï6tqï^]┬Uï∞â∞ï¿ïGëF÷╟F≥╟F·w╟Fⁿ∙G╟LqΦô½ï^÷ 7Ü·C
  1373. └tΘ╕π'P╕üPΦ╙┤ └u ╕π'P╕┌PΦa╕d(P╕ΓPΦV╕║∙GRP╕▄P╕P╕PΦ≡ⁿëF■ └uΘ═╕┌P╕π'PΦ╞╕ΓP╕d(PΦ╗â~■tΘΦ╕ └tΘñâ>NtΘÜ╕PΦ═ └u"â>Nuâ>0tΦyÑΘ{╕P╕ PΦ-
  1374. Θmâ>NtΘB+└PÜ:G :ëF⌠â>NtΘ-ág+─^·&*G■╚êF°Φ╫:F°sèF°δ░─^·&êGΦ╕╟╕w║∙GRP╕RP v⌠Φ√
  1375. ëF■ v⌠Ü|G :â~■uΘ▐â~■uΦbδ
  1376. â~■u `*â>NtΘ┐╕PΦ └tΘe â>0tΦ├ñΘñâ>NtΘÜ╕P╕PΦm    Θîâ~■tΘâΦ« └tΘÜâ>NtΘÉ 6¿╕ P+└PPPÜ( :+└PΦ▓ └t╟F≥Φ╪â>Ntτ 6¿╕ P╕P+└PPÜ( :â>Nu(â>0tΦ:ñδ╕Pâ~≥t╕δ╕ PΦΣâ~≥t!â>Z*t Z* 6XsΦ»²PΦ ┴ 6^* 6Z*ΦH»╕rqPÜL* ïσ]├Uï∞â∞ï¿ïGëFⁿü√lu&╕P+└PΦ≈úbsúXs=  u╕δy╕P+└PΦ▌δ8Ü#j2 └uΦ`»δßï^ⁿ 7Ü    k2úbsúXs╕P╕rqPÜá*  6XsΦ%²PÜCëF■Φ■╛ú^*úb*9F■u+└δΦ≈╛@úZ*ú`*╟\*â>╥u╕π'PΦ╖+└ïσ]├╟2Üd :â>0u+â>\*t)íbs9afistablosu.delete;
  1377. QUERY1.CLOSE;
  1378. QUERY1.PARAMS[0].ASINTEGER:=anafistablosu.FIelds[0].asinteger;
  1379. QUERY1.OPEN;
  1380. end;
  1381. procedure Tfrmmuhfis.FormCloseQuery(Sender: TObject;
  1382.   var CanClose: Boolean);
  1383. begin
  1384. if (lbl001.caption='Kapat') then canclose:=true else  canclose:=false;
  1385. end;
  1386.  
  1387. end.
  1388.